Artificial .intelligence Project— ituE and MIT Computation Center 
Memo 39 — Tho Kf?w Compiler x 

?yy 1. Hart -r I-.- levin 

This memo introduces ths brand new LISP 1.5 Compiler designed 
and programmed by Tim Hart and Mike Levin* It is written entirely 
In LISP and is the first compiler that has ever compiled Itself by 
being executed interpretively. 

The purpose of the LISP Coaqpllor is to replace S-expresslon 
definitions of functions with efficient machine language subroutines, 
A subroutine can be expected- to run about 40 times as fa*:t as the 
interpreter can execute the same function from its S-expression 
definition. Subroutines typically take 70-80 per cent of the storage 
requirie^l by their corresponding S-expressions. 

The compiler as It exists on the standard compiler tape is a 
machinl language program that was obtained by having the S-expresslon 
definition of the compiler work on iteeK 'hrough th© Interpreter. 

The compiler Is designed so that c-mpllcd functions and interpretal 
functions can be intermixed freely*- Suitable declarations allow free 
variables to be transmitted between the compiled functions and the 
Interpreter Cset constants may also be picked up by compiled functions. 

It Is possible to compile special forms and to compile functions that 
call special forms. No special provision is needed for doing this. 
Using th e Compiler 

In order that a function be compiled, it Is first necessary that 
It be defined, that i3 it must have an EXPR or PEXPR on its property 
list. This is usually done by a DEFINE or a DSPLIST. 

If there are any variable declarations, they must be declared before 
compiling. This Is described under the heading "Free Variables." 

To compile any number of f emotions, one simply punches:- 
COMPILE ((PN1 Ftf2..„ )) 

The order of compilation ia of no significance . It is not necessary 
to compile Inside functions first, or even to have them defined until 
they are to be used at run time. 

It is not necessary to compile all functions being used In a 
particular run, however running interpreted functions may slow down • 
the run very much. 
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When th* compiler Id not to be used any more, it can be removed 
and converted into freo storage by punching: 

EXCISE NJL 

Free Varia bles, 

A variable is bound in a particular function when It occurs in a 
list of bound variables following the word LAMBDA or PROO. Any 
variable that is not bound is' fro*?. 
Example: 

(LAMBDA (A) (PROO (B) 
S (SETQ B A) 

(COND (0TOLLB) (RETURN C))) 
(SETQ C (CONS (CAR A) C)) 
(00 S) )) 

A and B are bound variables, C is a free variable • 

When a variable is used free, it must have been bound by a higher 
, level function. If a program la being run Interpret ively, and a free 
variable is used without having been bound on a higher level, error 
diagnostic *A 8* will occur- 

If the program is being run compiled, the diagnostic may not occur, 
and the variable may have value NIL. 

All free variables in compiled programs must be declared SPECIAL 

■^ h variable is used free in compiled functions only, and Is 
always bound in other compiled functions then it must be declared 
SPECIAL. Declaring special variables will not increase program size or 
decrease speed very much. 

Special variables are declared by punching: 
SPECIAL (( VAPJ VAR2,,-)).- 

This declaration must be made before compiling any of the functions 
that bind or use the free variable. 

When a variable is to be used free in a compiled function and bound 
in an interpreted function or visa-versa it must be declared COMMON. 
When a variable is declared COMMON, its treatment by compiled functions 
is identical to it3 treatment by the interpreter. It may be passed 
between compiled functions and the Interpreter, 
Functional Constants 

Consider the following S-expression definition of a function 
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(YDCT (LAK5DA (X Y) (MAPLISE X {FUNCTION 
O (LAK2DA (J) (CONS (CAR J) Y)} )})) 

ydofc[(A B C D)jX}r.-[((A,X) (B„X). (C.X) (D.X))) 

Following the word FUNCTION is a functional oonatanft. 'If we 
consider it as a oeparate function, it is evident that it contains a 
bound variable "J w , and a free variable "ST". This free variable must be 
declared SPECIAL or COMMON, even though it is bound in YDOT.« 
F unctiona l Arguments 

MAPLIST can be defined in S-expressiona as follows: 
(MAPLIST (LAMBDA (L FN) (COND 
((NULL L) NIL) 
(T (CONS (FNL) (MAPLIST (CDR L) FN))) ))) 

The variable FN is used to bind a functional argument. That is, 
the value of FN is a function -definition. This type of variable must 
be declared COMMON* 
Compiler Design. 

Compilation proceeds in three steps The output of each one is th© 
input for the nexto 

FASSONB performs several modifications on the input « Its output 
is still in the form of S-expression definitions of functions « Among 
these are the following* 

1„ All SPECIAL and COMMON . variables are flagged for special 
attention., 

2o Function definitions are rewritten so as to use FEXPR and 
FSUBR functions in the most effective way- 

3„ Recursive functions that would be more effective if written with 
Iterative loops are rewritten using the PROS feature* - 

PHASE2 generates assembly language from the S-expression inoutc 
The main problems it solves are; 

( 

lo Determining the order of computation for nested composition of 

functions* 
_ 2 o Locating arguments for calling other functions, and assigning 
storage to the result that is returned ,. 

3„ Determining an efficient sequence of conditional transfers to 
execute conditional expressions and Boolean predicates,, 

' LAP , the LISP Assembly Program, has been described in another memo. 
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Com pil er Wnchlno Conypntiong 

LISP functions are closed subroutines. They arc calltKl by: 
TSX FN,. H- 
with the arguments located in the AC, the MQ, $ARG3, $ARG4, .... 

They return TRA 1,4 with the value in th© AC. 

The compliment. ■ of. IRl Is always the first free cell on th© push 
down list. Every compiled functlona calls a subroutine called *HOVE 
that moves the arguments of the function from AC, SKI etc. to locations 
1,1 2,1 etc a Then further spaca is left on the push down list for 
temporary storage, and IR1 is decremented to point to a higher location. 

/ Ordinary variables are cells on the push down list. They are 
not available to other functions • 

SPECIAL variables are set up as fixed storage locations. They 
can be referenced directly by any compiled function* When something 
is to be stored in a SPECIAL cell, the old value is saved on the push 
down list and later restored. 

COMMON variables are located on an A-list that Is passed between 
interpreter and compiled functions , 
LINK 

Although it is normal to TSX to functions the first time that 
they are executed, there will be an STR in thl3 location in the prograa. 
Tills trap is picked up by LOT If LINK finds that there is a subroutine to 
go to, it replaces th© STR with a TSX. If there is no SUBR, then LINK 
connects with the interpreter, so that if there is an EXPR, it can be 
interpreted. 
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